## The European Union and the Political Economy of Enforcing International Trade Rules - van Ommeren, Poletti, De Bièvre ##
  
rm(list = ls())
library(foreign) 
library(stargazer)
library(readxl)
library(sandwich)
library(StratSel)
library(haven)
EUTB Dataset <- read_dta("EUTB Dataset.dta")
attach(EUTB_Dataset) 
###########################################################################################
########################### Leemann (2014) Strategic Selection Estimator ############################################
###########################################################################################

# Table 4
logGDPCAP <- log(GDPCAP)
output <- StratSel(Y ~ INDCON + GEOCON + POLCON + PCRISIS + AGRICU + WTO | logECOASY + logTBALANCE + DEMOCR + logGDPCAP + PTA + PCRISIS + AGRICU | logECOASY +logTBALANCE + DEMOCR + logGDPCAP + PTA + PCRISIS + AGRICU , data=EUTB_Dataset, corr=TRUE)
setStratSelDefault()
summary(output)

## For replication syntax Tables 1,2,3 and A4, see EUTB_Dofile.do ##
